Chart A
chooseCRANmirror(graphics=FALSE, ind=1)
instacart %>%
filter(product_name %in% c("Natural Spring Water", "Spring Water", "Bulgarian Yogurt", "Strawberries", "Sauvignon Blanc", "Pinot Noir"))%>%
group_by(product_name, order_dow) %>%
summarize(mean_hour = mean(order_hour_of_day)) %>%
plot_ly( x = ~ order_dow, y=~ mean_hour, color = ~product_name,
type = "bar") %>%
layout(yaxis = list(title = 'Mean Hour'), xaxis = list(title = 'Order Day of Week'), barmode = 'group')
## `summarise()` has grouped output by 'product_name'. You can override using the `.groups` argument.